home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD013a.dsk / JUKEBOX PROGRAM PART 2.bas < prev    next >
BASIC Source File  |  2003-06-12  |  5KB  |  63 lines
  1. 0  IF  PEEK(104) < >32  THEN  POKE 104,32: POKE 8192,0: PRINT  CHR$(13) + CHR$(4)"RUN JUKEBOX PROGRAM PART 2"
  2. 1  ONERR  GOTO 62000
  3. 2  POKE  -16368,0
  4. 3  TEXT : HOME 
  5. 4  FOR I = 0 TO 9: READ SN$(I): NEXT I
  6. 6  REM 
  7. 20  IF  PEEK(768) = 169  AND  PEEK(769) = 1  AND  PEEK(770) = 133  THEN  GOTO 36
  8. 30  PRINT  CHR$(13) + CHR$(4)"BLOAD PLAYER,A768"
  9. 36  IF  PEEK(2071) = 00  THEN  GOTO 50
  10. 40 : PRINT  CHR$(4)"BLOAD TEXT2,A2048"
  11. 50  HOME : GOSUB 95: GOTO 110
  12. 95  TEXT : POKE  -16299,0: HOME : FOR I = 1 TO 22 *40: INVERSE : PRINT " ";: NEXT I: NORMAL : VTAB 1: HTAB 1: PRINT " ": VTAB 1: HTAB 39: PRINT " ": VTAB 22: HTAB 1: PRINT " ": VTAB 22: HTAB 39: PRINT " ": VTAB 1: HTAB 1
  13. 96  FOR I = 1 TO 22: VTAB I: HTAB 40: PRINT " ": NEXT I: VTAB 1: HTAB 1
  14. 100  NORMAL :T = 3:R = 37: FOR I = T TO R: VTAB 3: HTAB I: PRINT " ";: NEXT I: FOR A = 4 TO 19: FOR I = T -1 TO R +1: VTAB A: HTAB I: PRINT " ": NEXT I: NEXT A: FOR I = T TO R: VTAB 20: HTAB I: PRINT " ": NEXT I
  15. 105  POKE 34,3: POKE 32,3: POKE 35,19: POKE 33,34
  16. 106  RETURN 
  17. 110  VTAB 5:: PRINT "......JUKEBOX FUNCTION MENU......"
  18. 120  VTAB 7: PRINT "[P]LAY A SONG": VTAB 8:: PRINT "[L]IST JUKEBOX SONGS"
  19. 130  VTAB 9:: PRINT "[/] PLAY ALL SONGS IN JUKEBOX": VTAB 10:: PRINT "[I]NFORMATION": VTAB 11:: PRINT "[E]ND JUKEBOX"
  20. 140  VTAB 14:: PRINT "TYPE [LETTER] AND PRESS [RETURN],": VTAB 15:: PRINT "PLEASE: [-]"
  21. 150  POKE  -16300,0: VTAB 15: HTAB 10:: GET R$: VTAB 15: HTAB 10: PRINT R$: VTAB 15: HTAB 10: GET RT$
  22. 160  IF R$ < >"P"  AND R$ < >"L"  AND R$ < >"/"  AND R$ < >"I"  AND R$ < >"E"  AND R$ < >"X"  THEN  VTAB 18: HTAB 4: PRINT "OOPS! TRY AGAIN.<CTRL-G>": FOR I = 1 TO 1500: NEXT I: VTAB 18: HTAB 4: PRINT "<CTRL-G><CTRL-G>                    ": GOTO 140
  23. 170  NORMAL : IF R$ = "P"  THEN  GOTO 220
  24. 171  IF R$ = "X"  THEN  PRINT "BOOTING DISKETTE.": FOR I = 1 TO 1000: NEXT I: CALL 64166
  25. 180  IF R$ = "L"  THEN  GOTO 300
  26. 190  IF R$ = "/"  THEN  GOTO 350
  27. 200  IF R$ = "I"  THEN  TEXT : HOME : GOTO 400
  28. 210  IF R$ = "E"  THEN  GOTO 480
  29. 220  HOME : POKE  -16299,0
  30. 240  NORMAL 
  31. 250  VTAB 3:: PRINT "  JUKEBOX FUNCTION [P]LAY A SONG."
  32. 260  VTAB 5:: PRINT "SONGS ARE:": RESTORE : FOR I = 0 TO 9: READ SN$:: HTAB 2: PRINT SN$: NEXT I
  33. 270  POKE  -16300,0
  34. 280  VTAB 17:: PRINT "ENTER SONG NAME AND PRESS [RETURN]": VTAB 18:X = 1: INPUT "";SN$: IF SN$ = ""  THEN  RUN 
  35. 290 : HOME : VTAB 15: PRINT "PLAYING :";SN$;".  ENJOY!!": PRINT  CHR$(13) + CHR$(4)"BLOAD M.";SN$;",A24576": POKE 30,0: POKE 31,96: CALL 768: GOTO 220
  36. 300  HOME : POKE  -16299,0
  37. 320  HOME : PRINT " LIST ALL SONGS IN THE JUKEBOX "
  38. 330  PRINT : PRINT "SONGS ARE:": RESTORE : FOR I = 0 TO 09: READ SN$: PRINT  TAB( 5);SN$: NEXT 
  39. 335  POKE  -16300,0
  40. 340  VTAB 18: PRINT "PLEASE PRESS A KEY FOR MAIN MENU.";: POKE  -16368,0: WAIT  -16384,128: POKE  -16368,0: RUN 
  41. 350  REM 
  42. 360  HOME : POKE  -16299,0
  43. 370 : HOME : PRINT "..PLAY ALL SONGS IN THE JUKEBOX..": PRINT : PRINT "PLEASE IGNORE ANY DISK ACCESS."
  44. 375  POKE  -16300,0
  45. 376  RESTORE 
  46. 380  VTAB 15: FOR I = 0 TO 09: READ SN$: VTAB 15: CALL  -958: PRINT "SONG PLAYING: ";SN$: PRINT  CHR$(13) + CHR$(4)"BLOAD M.";SN$;",A24576": POKE 30,0: POKE 31,96: CALL 768: NEXT I
  47. 390  RUN 
  48. 400  POKE  -16299,0: VTAB 23: FOR I = 1 TO 25: PRINT : NEXT I: HOME : VTAB 1: PRINT "$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$": VTAB 22: HTAB 1: PRINT "$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$": FOR I = 1 TO 22: VTAB I: HTAB 1: PRINT "$": VTAB I: HTAB 40: PRINT "$": NEXT I
  49. 410  POKE 34,3: POKE 35,20: POKE 32,3: POKE 33,34: HOME : PRINT "....INFORMATION ON THE JUKEBOX....": POKE 34,5: HOME :
  50. 420  PRINT "   THE JUKEBOX IS A COLLECTION OF SHEET MUSIC SONGS, COMPOSED IN THETWO-VOICES OF THE 'ELECTRIC DUET'."
  51. 430  PRINT : PRINT "   ALL SONGS, EXCEPT THE LAST TWO,WERE ENTERED BY ME, JEFF          MARRACCINI. THE LAST TWO, 'SONATA'AND 'THE ENTERTAINER' APPEAR ON   THE 'ELECTRIC DUET' DISKETTE."
  52. 435  POKE  -16300,0
  53. 440  VTAB 19: PRINT  TAB( 4)".....PLEASE PRESS A KEY.....": POKE  -16368,0: WAIT  -16384,128: POKE  -16368,0: VTAB 19: FOR I = 1 TO 23: PRINT : HOME 
  54. 450  PRINT "  THESE LAST TWO SONGS ARE MY     FAVORITES, SO I STUCK THEM IN.    ": PRINT 
  55. 460  PRINT "   'ELECTRIC DUET' USERS CAN      MODIFY THE SONGS. FEEL FREE TO DO SO. THANKS FOR YOUR TIME."
  56. 470  VTAB 19: PRINT  TAB( 4)".....PLEASE PRESS A KEY.....": POKE  -16368,0: WAIT  -16384,128: POKE  -16368,0: TEXT : CALL  -1998: VTAB 23: FOR I = 1 TO 25: PRINT : NEXT I: RUN 
  57. 480  HOME 
  58. 500  PRINT "...MENU FUNCTION [E]ND JUKEBOX...": VTAB 6: PRINT "PRESS [RETURN] TO ABORT, ANY KEY  OTHER THAN [RETURN] TO END.": POKE  -16300,0
  59. 501  PRINT  CHR$(95): VTAB 8: GET R$: IF R$ < > CHR$(13)  THEN  RUN 
  60. 510  HOME : PRINT "BYE..........COME BACK SOON!!!!": TEXT : FOR I = 1 TO 2000: NEXT I: TEXT : CALL  -1998: HOME : PRINT  CHR$(4)"RUN KICK.IT.OFF"
  61. 60000  DATA  "MINUET (TELEMANN)","MINUET (PURCELL)","MARCH","MELODY","BORN FREE","MINUET IN G","","","",""
  62. 61000  RUN 
  63. 62000  CALL  -211: RESUME